  <table>
    <% $view %>
  </table>
<%args>
  $number
  $dir
</%args>
<%init>
  my %bad = map {$_ => 1 } qw/A09_M17 B04_R12 B06_H10 C05_H1 D03_R5 D04_R16 D05_H2 D06_H12 D08_M10 E04_R17X F06_H16 F07_M2 G06_H17 H04_R21 H05_H7/;
  my $view;
  my @view;
  push @view, "<table>";
  foreach my $enz (qw/H M R/) {
    my ( $file ) = `ls $TRFLP::data_path/$dir/*$enz$number.peak`;
    chomp $file;
    $file =~ s/.peak$//;
    my $name = (split "/", $file)[-1];
    if ( $bad{$name} ) {
      push @view, qq(<tr><td>$name</a> is bad</td></tr>\n);
    }
    else {
      push @view, qq(<tr><td><a href="$file.peak">$name peak data</a></td></tr>\n);
      push @view, qq(<tr><td><img border="0" src="plot.html?stage=logpeaks;key=$name;file=$file"></td></tr>);
    }
  }
  push @view, "</table>";
  $view = join("\n", @view);
</%init>
<%method title>
<%args>
  $number
  $dir
</%args> \
Sample #<% $number %> in <% $dir %> \
</%method>
